home *** CD-ROM | disk | FTP | other *** search
/ Game On / Game_On_92-12_1992_-_de_Side_A.d64 / outrun europa_dm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  435b  |  19 lines
  1. 100 clr:dimts$(20):dimbl$(20)
  2. 110 ts$(1)="05 05":bl$(1)="052"
  3. 120 ts$(2)="19 17":bl$(2)="043"
  4. 130 print"insert disk - side 1"chr$(13)"press any key !"
  5. 140 poke198,0:wait198,1:poke198,0
  6. 150 va=43:i=1:gosub210
  7. 160 a$="unlimited credits":i=2:gosub180
  8. 170 end
  9. 180 print""a$" on[146]/of[146]f"
  10. 190 geta$:ifa$<>"n"anda$<>"f"then190
  11. 200 va=36:ifa$="f"thenva=198
  12. 210 open2,8,15:open1,8,2,"#"
  13. 220 print#2,"u1 2 0 "+ts$(i)
  14. 230 print#2,"b-p 2 "+bl$(i)
  15. 240 print#1,chr$(va);
  16. 250 print#2,"u2 2 0 "+ts$(i)
  17. 260 close2:close1
  18. 270 return
  19.